#!/usr/bin/perl
use strict;
use warnings;

use GD;
use CGI::Carp qw(fatalsToBrowser);

my $myImage = new GD::Image(100,100) || die;

my $white = $myImage->colorAllocate(255,255,255);
$myImage->fill(50,50,$white);

print "Content-Type: image/png\n\n";
binmode STDOUT;
print $myImage->png();

